Tiger Disk 108/Tiger_Disk_108_20xx_Tiger-Crew-Disk_de_Side_C.d64/carcrash _bgu

Commodore BASIC | 2023-02-26 | 1KB | 13 lines

0 fori=49152to49264:readq:pokei,q:next:fori=832to895:reads:pokei,s:next:s=54272
1 poke53281,0:poke53280,0:print"[147]":gosub6:n=200:poke53279,0:poke56357,50
2 p=rnd(1)*16:poke646,p:print""spc(5)"[195]arcrash for the [214]ision [208]arty":poke646,p+1:print""spc(12)"  [208]ress [198]ire":h=53265:t=0:j=peek(56320):if(jand16)=0thengosub6:pokes+24,15:pokes+7,207:pokes+13,204:goto7
5 goto2:data120,169,47,141,20,3,169,192,141,21,3,169,255,141,21,208,141,28
6 pokeh,t:fori=0ton:next:poke53269,0:pokes+24,0:v=53248:return
7 data208,141,39,208,169,12,141,38,208,169,11,141,37,208,169,227,141,1:data208,141,0,208,169,13,141,248,7,88,96,172,0,216,162,0,189,1:poke56357,30:data216,157,0,216,232,224,39,208,245,238,0,216,140,39,216,173,0,220:pokes+8,1
10 data41,4,240,10,173,0,220,41,8,240,16,76,49,234,173,0,208,201:b=218:c=152:data70,240,246,206,0,208,76,49,234,173,0,208,201,255,240,233,238,0,208:data76,49,234,,1,164,0,2,168,0,242,168,240,242,168,240,246,169,240,242,168
13 data240,242,168,240,6,169,0,10,170,0,26,250,64,43,94,128,41,86,128,41,86,128:data25,86,64,11,94,0,250,170,240,249,166,240,251,174,240,249,166,240,242,168:print"[147]"spc(10)"carcrash by biguser":data240,242,8,240,:sys49152:poke+11,33:a$(1)="[153][169][223]":a$(2)="[169]  [223]":a$(3)="[146][149][170][165]"
16 printchr$(142):pokeh,27:ti$="000000"
17 a=rnd(1)*39:printspc(a)a$(1)"[157][157][157]"a$(2)"[157][157][157]"a$(3):fori=0to3:print"[157][148]":pokeb,c:d=peek(53279):ifd=1then20
19 next:goto17
20 gosub6:print"[147][154]"ti$"[153][208]unkte":t=27:n=1000:gosub6:goto1